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CP/M System Alteration Guide 



1. INTRODUCTION 



The standard CP/M system assumes operation on an Intel MDS microcomputer 
development system, but is designed so that the user can alter a specific set 
of subroutines which define the hardware operating environment. In this way, 
the user can produce a diskette which operates with a non-standard (but 
IBM-compatible format) drive controller and/or peripheral devices. 

In order to achieve device independence, CP/M is separated into three 
distinct modules: 

BIOS - Basic I/O System which is environment dependent 

BDOS - Basic Disk Operating System which is not dependent upon 

the hardware configuration 
CCP - the Console Command Processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular hardware. 
That is, the user can "patch" the distribution version of CP/M to provide a 
new BIOS which provides a customized interface between the remaining CP/M 
modules and the user's own hardware system. The purpose of this document is 
to provide a step-by-step procedure for patching the new BIOS into CP/M. 

The new BIOS requires some relatively simple software development and 
testing.; the current BIOS, however, is listed in Appendix C, and can be used 
as a model for the customized package. A skeletal version of the BIOS is 
given in Appendix D which can form the base for a modified BIOS. In addition 
to the BIOS, the user must write a simple memory loader, called GETSYS, which 
brings the operating system into memory. In order to patch the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called PUTSYS, which places 
an altered version of CP/M back onto the diskette. PUTSYS is usually derived 
from GETSYS by changing the disk read commands into disk write commands. 
Sample skeletal GETSYS and PUTSYS programs are described in Section 3, and 
listed in Appendix E. In order to make the CP/M system work automatically, 
the user must also supply a cold start loader, similar to the one provided 
with CP/M (listed in Appendices A and B) . A skeletal form of a cold start 
loader is given in Appendix F which can serve as a model for your loader. 



2. FIRST IEVEL SYSTEM REGENERATION 

The procedure to follow to patch the CP/M system is given below in several 
steps. Address references in each step are followed by an "H" to denote the 
hexadecimal radix , and are given for a 16K CP/M system. Ebr larger CP/M 
systems, add a "bias" to each address which is shown with a "+b" following it, 
where b is equal to the memory size minus 16K. Values for b in various 
standard memory sizes are 



24K 
32K 
40K 
48K 
56K 
62K 
6«C 



b ■ 24K - 16K « 8K * 02000H 

b - 32K - 16K * 16K = 04000H 

b = 40K - 16K -. 24K = 06000H 

b - 48K - 16K m 32K - 08000H 

b » 56K - 16K - 40K « 0A000H 

b * 62K - 16K ■ 46K * 0B800H 

b = 64K - 16K .■ 48K = 0C000H 



Note: The standard distribution version of CP/M is configured as a 16K 
system. Therefore, you must first bring up the 16K CP/M system, and then 
configure it for your actual memory size (see Second Level System Generation). 

(1) Review Section 4 and write a GETSYS program which reads the first two 
tracks of a diskette into memory. The data from the diskette must begin at 
location 2880H. Code GETSYS so that it starts at location 100H (base of the 
TPA) , as shown in the first part of Appendix E. 

(2) Test the GETSYS program by reading a blank diskette into memory, and 
check to see that the data has been read properly, and that the diskette has 
not been altered in any way by the GETSYS program. 

(3) Run the GETSYS program using an initialized CP/M diskette to see if 
GETSYS loads CP/M starting at 2880H (the operating system actually starts 128 
bytes later at 2900H) . 

(4) Review Section 4 and write the PUTSYS program which writes memory 
starting at 2880H back onto the first two tracks of the diskette. The PUTSYS 
program should be located at 200H, as shown in the second part of Appendix E. 

(5) Test the PUTSYS program using a blank uninitialized diskette by 
writing a portion of memory to the first two tracks; clear memory and read it 
back using GETSYS. Test PUTSYS completely, since this program will be used to 
alter CP/M on disk. 

(6) Study Sections 5, 6, and 7, along with the distribution version of 
the BIOS given in Appendix C, and write a simple version which performs a 
similar function for the customized environment, use the program given in 
Appendix D as a model. Call this new BIOS by the name CBIOS (customized 
BIOS). Implement only the primitive disk operations on a single drive, and 



simple console input/output functions in this phase. 

(7) Test CBIOS completely to ensure that it properly performs console 
character I/O and disk reads and writes. Be especially careful to ensure that 
no disk write operations occur accidently during read operations, and check 
that the proper track and sectors are addressed on all reads and writes. 
Failure to make these checks may cause destruction of the initialized CP/M 
system after it is patched. 

(8) Referring to Figure 1 in Section 5, note that the BIOS is located 
between locations 3E00H and 3FFFH. Read the CP/M system using GETSYS, and 
replace the BIOS segment by the new CBIOS developed in step (6) and tested in 
step (7). This replacement is done in the memory of the machine and will be 
placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the first 
two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test diskette 
back into memory at 2880H, and check to ensure that it has loaded back 
properly (clear memory, if possible, before the load). Upon successful load, 
branch to the cold start code at location 3E00H. The cold start routine will 
initialize page zero, then jump to the CCP (location 2900H) which will call 
the BDOS, which will call the CBIO&. The CBIOS will be asked to read several 
sectors on track 2 twice in succession, and, if successful, CP/M will type 
"A>". 

When you make it this far, you are almost on the air. If you have trouble, 
use whatever debug facilities you have available to trace and breakpoint your 
CBIOS. 

(11) Upon completion of step (10) , CP/M has prompted the console for a 
command input. Test the disk write operation by typing 

SAVE 1 X.OOM 

(recall that all commands must be followed by a carriage return) . CP/M should 
respond with another prompt (after several disk accesses): 

A> 
If it does not, debug your disk write functions and try again. 

(12) Test the directory command by typing 

DIR 
CP/M should respond with 

A: X OOM 



(13) Test the erase command by typing 

EPA X.OQM 

CP/M should respond with the A prompt. When you make it this far, you should 
have an operational system which will only require a bootstrap loader to 
function completely. 

(14) Write a bootstrap loader which is similar to GETSYS, and place it 
on track 0, sector 1 using POTSYS (again using the test diskette, not the 
distribution diskette) . See Sections 5 and 8 for more information on the 
bootstrap operation. 

(15) Retest the new test diskette with the bootstrap loader installed by 
executing steps (11) , (12), and (13). Upon completion of these tests, type a 
control-C (control and C keys simultaneously) . The system should then execute 
a "warm start" which reboots the system and types the A> prompt. 

(16) At this point, you probably have a good version of your customized 
CP/M system on your test diskette. Use GETSYS to load CP/M from your test 
diskette. Remove the test diskette, place the distribution diskette (or a 
legal copy) into the drive, and use PUTSYS to replace the distribution version 
by your customized version. Do not make this replacement if you are unsure of 
your patch since this step destroys the system which was sent to you from 
Digital Research. 

(17) Load your modified CP/M system, and test it by typing 

DIR 

CP/M should respond with a list of files which are provided on the initialized 
diskette. One such file should be the memory image for the debugger, called 
DDT.OOM. 

NOTE: from now on, it is important that you always reboot 
the CP/M system if a diskette is removed and replaced 
by another diskette, unless the new diskette is to be 
read only. 

(18) Load and test the debugger by typing 

DOT 

(see the document "CP/M Dynamic Debugging Tool (DDT)" for operating 
information and examples) . Take time to familiarize yourself with DDT; it 
will be your best friend in later steps. 

(19) Before making further CBIOS modifications, practice using the editor 
(see the ED user's guide), and assembler (see the ASM user's guide). Then 



recode and test the GETSYS, POTSYS, and (BIOS programs using ED, ASM, and 
DDT. Code and test a CDPY program which does a sector-to-sector copy from one 
diskette to another to obtain back-up copies of the original diskette (NOTE: 
read your CP/M Licensing Agreement; it specifies your legal responsibilities 
when copying the CP/M system) . Place the copyright notice 

Copyright (c) 1978 
Digital Research 

on each copy which is made with your COPY program. 

(20) Modify your CBIOS to include the extra functions for punches, 
readers, signon messages, and so-forth, and add the facilities for additional 
drives, if they exists on your system. You can make these changes with the 

GETSYS and PUTSYS programs which you have developed, or you can refer to the 
following section, which outlines CP/M facilities which will aid you in the 
regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have developed belongs to you, 
the modified version of CP/M which you have created can be copied for your use 
only (again, read your Licensing Agreement) and cannot be legally copied for 
anyone else's use. 

It should be noted that your system remains file-compatible with all other 
CP/M systems, which allows transfer of non-proprietary software between users 
of CP/M. 



3. SECOND LEVEL SYSTEM GENERATION 

Now that you have the CP/M system running, you will want to configure CP/M 
for your memory size. In general, you will first get a memory image of CP/M 
with the "MOVCPM" program (system relocator) and place this memory image onto 
a named disk file. The disk file can then be loaded, examined, patched, and 
replaced using the editor, assembler, debugger, and system generation program. 
For further details on the operation of these programs, see the "Guide to CP/M 
Features and Facilities" manual. 

To get the memory image of CP/M into the TPA configured for the desired 
memory size, give the command: 

MOVCPM xx * 

where "xx" is the memory size in decimal K bytes (e.g., 32 for 32K) . Hie 
response will be: 

INSTRUCTING XXK CP/M VERS 1.4 
READY FOR "SYSGEN" OR 
"SAVE 32 CPMxx.OOM" 

At this point, the image of CP/M in the TPA is configured for the desired 
memory size. The memory image is at location 0900H through 207FH (i.e., the 
BOOT is at 0900H, the CCP is at 980H, and the BIOS is at 1E80H). Note that 
the memory image has the standard MDS-800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch your CBIOS 
and CBOOT into it: 

SAVE 32 CPMxx.OOM Save 20H = 32 pages of memory 

The memory image created by the "MOVCPM" program is offset by a negative bias 
so that it loads into the free area of the TPA, and thus does not interfere 
with the operation of CP/M in higher memory. This memory image can be 
subsequently loaded under DDT and examined or changed in preparation for a new 
generation of the system. DDT is loaded with the memory image by typing: 

DDT CPMxx.OOM Load DDT, then read the CPM image 

DDT should respond with 

NEXT PC 
2100 0100 

You can then use the display (D) and disassembly (L) commands to examine 
portions of the memory image between 900H and 207FH. Note, however, that to 
find any particular address within the memory image, you must apply the 
negative bias to the CP/M address to find the actual address. Track 00, 
sector 01 is loaded to location 900H (you should find the cold start loader at 



900H to -97FH) , track 00, sector 02 is loaded into 980H (this is the base of 
the CCP) , and so-forth throuqh the entire CP/M system load. In a 16K system, 
for example, the CCP resides at the CP/M address 2900H, but is placed into 
memory at 980H by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

2900H + n = 980H, or n * 980H - 2900H 
Assuming two's complement arithmetic, n = 0E080H, which can be checked by 

2900H + 0E080H = 10980H * 0980H (ignoring high-order overflow) . 

Note that for larger systems, n satisfies 

(2900H+b) + n = 980H, or 
n = 980H - (2900H + b) , or 
n * 0E080H - b. 

The value of n for common CP/M systems is given below 

negative offset n 
0E080H - 0000H = 0E080H 
0E080H - 2000H = 0C080H 
0E080H - 4000H = 0A080H 
0E080H - 6000H « 8080H 
0E080H - 8000H = 6080H 
0E080H - 0A000H « 4080H 
0E080H - 0B800H = 2880H 
0E080H - 0C000H = 2080H 

Assume, for example, that you want to locate the address x within the memory 
image loaded under DOT in a 16K system. First type 

Hx,n Hexadecimal sum and difference 

and DOT will respond with the value of x+n (sum) and x-n (difference) . The 
first number printed by DDT will be the actual memory address in the image 
where the data or code will be found. Tftie input 

H2900,E080 

for example, will produce 980H as the sum, which is where the CCP is located 
in the memory image under DDT. 

Use the L command to disassemble portions of your CBIOS located at (3E00H+b)+n 
which, when you use the H command, produces an actual address of 1E80H. The 
disassembly command would thus be 

L1E80 



ry size 


bias b 


16K 


0000H 


24K 


2000H 


32K 


4000H 


40K 


6000H 


48K 


8000H 


56K 


0A000H 


62K 


0B800H 


64K 


0C000H 



Terminate DDT by typing a control-C or "G0° in order to prepare the patch 
program. Your CBIOS and BOOT can be modified using the editor and assembled 
using ASM, producing files called CBIOS.HEX and BOOT.HEX which contain the 
machine code for CBIOS and BOOT in Intel hex format. In order to integrate 
your new modules, return to DET by typing 

DDT CPMxx.OOM Start DET and load the CPMxx image 

It is now necessary to patch in your CBOOT and CBIOS routines. The BOOT 
resides at location 0900H in the memory image. If the actual load address is 
'x', then to calculate the bias (m) use the command: 

H900,x Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias (m) . 
For example, if your BOOT executes at 0080H, the command: 

H900,80 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m" would be 0880H. To read the BOOT in, give the 
command: 

ICBOOT.HEX Input file CBOOT.HEX 

Then: 

Rn Bead CBOOT with a bias of 

m (»900H-x) 

You may now examine your CBOOT with: 

L900 

We are now ready to replace the CBIOS. Examine the area at 1E80H where the 
previous version of the CBIOS resides. Then type 

ICBIOS.HEX Ready the hex file for loading 

Assume that your CBIOS is being integrated into a 16K CP/M system, and thus is 
based at location 3E00H. In order to properly locate the CBIOS in the memory 
image under DET, we must apply the negative bias n for a 16K system when 
loading the hex file. This is accomplished by typing 

RE080 Read the file with bias 0E080H 



Upon completion of the read, re-examine the area where the CBIOS has been 
loaded (use an "L1E80" command) , to ensure that it was loaded properly. When 
you are satisfied that the patch has been made, return from DOT usinq a 
control-C or "G0" command. 

Now use SYSGEN to place the patched memory imaqe back onto a diskette (use 
a test diskette until you are sure of your patch) , as shown in the following 
interaction: 

SYSGEN Start the SYSGEN program 

SYSGEN VERSION 1.4 Sign-on message from SYSGEN 

SOURCE ERIVE NAME (OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory. 

DESTINATION ERIVE NAME (OR RETURN TO REBOOT) 

Respond with B to write the new 
system to the diskette in drive 
B. 

DESTINATION ON B, THEN TYPE RETURN 

Hit the return key to perform 
the actual write. 

FUNCTION COMPLETE 

DESTINATION ERIVE NAME (OR RETURN TO REBOOT) 

Respond with a carriage return 
to reboot. 

Place the test diskette on drive B (if you are operating with a single-drive 
system, answer "A H rather than M B" to the DESTINATION request; then remove 
your diskette, and replace it with the test diskette) , and type a return. The 
system will be replaced on the test diskette. Test the new CP/M system by 
placing the test diskette in drive A and cold-starting. 

Write the Digital Research copyright notice on the diskette, as specified 
in your Licensing Agreement: 

Copyright (c) , 1978 
Digital Research 



4. SAMPLE GETSYS AND POTSYS PROGRAMS 



The following program provides a framework for the GETSYS and POTSYS 
programs referenced in Section 2. The READSEC and WRITESEC subroutines must 
be inserted by the user to read and write the specific sectors. 

READ TRACKS AND 1 TO MEMORY AT 2880H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 
SECTOR COUNT (1,2,... ,26) 
(SCRATCH REGISTER PAIR) 
LOAD ADERESS 
SET TO STACK ADERESS 

;SET STACK POINTER TO SCRATCH AREA 

;SET BASE LOAD ADERESS 

;START WITH TRACK 

;READ NEXT TRACK (INITIALLY 0) 

yREAD STARTING WITH SECTOR 1 

;READ NEXT SECTOR 

;USERH5UPPLIED SUBROUTINE 

?MOVE LOAD ADERESS TO NEXT 1/2 PACT) 

jHL - HL + 128 

;SECTOR ■ SECTOR + 1 

;CHECK FOR END OP TRACK 

;CARRY GENERATED IF SECTOR < 27 



; GETSYS PROGRAM - ] 


; REGISTER 






A 






B 


i 




C 


■ 




DE 






HL 






SP 




START: 


IXL 


SP,2880H 




IXI 


H, 2880H 




MVI 


B, 


RDTRK: 








MVI 


C,l 


RDSEC: 








CALL 


READSEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



? ARRIVE HERE AT END OF TRACK, M3VE TO NEXT TRACK 
INR B 

M3V A,B ;TEST FOR IAST TRACK 
CPI 2 
JC RDTRK ;CARRY GENERATED IF TRACK < 

• ARRIVE HERE AT END OF LOAD, HALT FOR NOW 

HLT 

• USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, MJD 
ADERESS TO FILL IN HL 



PUSH B 
PUSH H 



? SAVE B AND C REGISTERS 
?SAVE HL REGISTERS 



Perform disk read at this point, branch to 
label START if an error occurs 



10 



POP H ;REOOVER HL 

POP B ;REOOVER B AND C REGISTERS 

RET ;BAOK TO MAIN PROGRAM 

END START 

Note that this program is assembled with an assumed origin of 0100. and listed 
in Appendix D for reference purposes. The hexadecimal operation codes which 
are listed on the left may be useful if the program has to be entered through 
your machine's front panel switches. 

The PUTSYS program can be constructed from GETSYS by changing only a few 
operations in the GETSYS program given above, as shown in Appendix E. The 
register pair HL becomes the dump address (next address to write) , and 
operations upon these registers do not change within the program. The READSEC 
subroutine is replaced by a WRITESEC subroutine which performs the opposite 
function: data from address HL is written to the track given by register B 
and the sector given by register C. It is often useful to combine GETSYS and 
PUTSYS into a single program during the test and development phase, as shown 
in Appendix E. 
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5. DISKETTE ORGANIZATION 

The sector allocation for the standard distribution version of CP/M is 
given here for reference purposes. The first sector (see Figure 1) contains 
an optional software boot section. Disk controllers are often set up to bring 
track 0, sector 1 into memory at a specific location (often location 0000H). 
The program in this sector, called LBOOT, has the responsibility of bringing 
the remaining sectors into memory starting at location 2900H+b. If your 
controller does not have a built-in sector load, you can ignore the program in 
track r sector 1 and begin the load from track sector 2 to location 
2900H+b. 



As an example, the Intel MDS-800 hardware cold start loader brings track 
0, sector 1 into absolute address 3000H. Thus, the distribution version 
contains two very small programs in track 0, sector 1: 

MBOOT - a storage move program which moves LBOOT into 
place following the cold start (Appendix A) 

IBOOT - the cold start boot loader (Appendix B) 

Upon MDS start-up, the 128 byte segment on track 0, sector 1 is brought 
into 3000H. The MBOOT program gets control, and moves the LBOOT program from 
location 301EH down to location 80H in memory, in order to get LBOOT out of 
the area where CP/M is loaded in a 16K system. Note that the MBOOT 
program would not be needed if the MDS loaded directly to 80H. In general, 
the LBOOT program could be located anywhere outside the CP/M load area, but is 
most often located in the area between 000H and 0FFH (below the TPA) . 

After the move, MBOOT transfers to LBOOT at 80H. LBOOT, in turn, loads 
the remainder of track and the initialized portion of track 1 to memory, 
starting at 2900H+b. The user should note that MBOOT and IBOOT are of little 
use in a non-MDS environment, although it is useful to study them since some 
of their actions will have to be duplicated in your cold start loader. 

Figure 1. Diskette Allocation 

Track# Sector# Page# Memory Address CP/M Module name 



00 



01 



(boot address) Cold Start Loader 



00 



02 


00 


2900H+b 


03 


!• 


2980H+b 


04 


01 


2A00H+b 


05 


•i 


2A80H+b 


06 


02 


2B00H+b 


07 


it 


2B80H+b 


08 


03 


2C00H+b 


09 


ii 


2C80H+b 



CCP 



12 



II 


10 


04 


2D00H+b 


H 


II 


11 


H 


2D80H+b 


ii 


•1 


12 


05 


2E00H+b 


ii 


•1 


13 


H 


2E80H+b 


•i 


•1 


14 


06 


2F00H+b 


» 


II 


15 


H 


2F80H+b 


I* 


II 


16 


07 


3000H+b 


ii 


00 


17 


it 


3080H+b 


CCP 


00 


18 


08 


3100H+b 


BDOS 


II 


19 


it 


3180H+b 


•1 


•1 


20 


09 


3200H+b 


•• 


II 


21 


H 


3280H+b 


•1 


II 


22 


10 


3300H+b 


II 


II 


23 


•i 


3380H+b 


M 


II 


24 


11 


3400H+b 


■• 


II 


25 


!• 


3480H+b 


•1 


II 


26 


12 


3500H+b 


•I 


01 


01 


ii 


3580H+b 


•1 


II 


02 


13 


3600H+b 


II 


II 


03 


•I 


3680H+b 


II 


It 


04 


14 


3700H+b 


•I 


II 


05 


n 


3780H+b 


•1 


•1 


06 


15 


3800H+b 


II 


II 


07 


H 


3880H+b 


II 


II 


08 


16 


3900H+b 


•1 


•1 


09 


H 


3980H+b 


•1 


•• 


10 


17 


3A00H+b 


II 


II 


11 


H 


3A80H+b 


II 


II 


12 


18 


3B00H+b 


II 


II 


13 


it 


3B80H+b 


II 


•I 


14 


19 


3C00H+b 


•I 


II 


15 


•i 


3C80H+b 


II 


II 


16 


20 


3D00H+b 


II 


II 


17 


•i 


3D80H+b 


BDQ$ 


01 


18 


21 


3E00H+b 


BIOS 


•1 


19 


H 


3E80H+b 


H 


II 


20 


22 


3F00H+b 


H 


01 


21 


•• 


3F80H+b 


BIOS 


01 


22-26 






(not currently used) 


02-76 


01-26 






(directory and data) 
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6. THE BIOS BOTH* POINTS 

The entry points into the BIOS from the cold start loader and BDOS are 
detailed below. Entry to the BIOS is through a "jump vector" between 
locations 3E00H+b and 3E2CH+b, as shown below (see also Appendices, pages G-2 
and D-l). The jump vector is a segue .ce of 15 jump instructions which send 
program control to the individual BIOS subroutines. The BIOS subroutines may 
be empty for certain functions (i.e., they may contain a single RET operation) 
dur ing regeneration of CP/M, but the entries must be present in the jump 
vector. 

It should be noted that there is a 16 byte area reserved in page zero (see 
Section 9) starting at location 40H, which is available as a "scratch" area in 
case the BIOS is implemented in POM by the user. This scratch area is never 
accessed by any other CP/M subsystem during operation. 

The jump vector at 3E00H+b takes the form shown below, where the 
individual jump addresses are given to the left: 



3E00H+b 
3E03H+b 
3E06H+b 
3E09H+b 
3E0CH+b 
3E0FH+b 
3E12H+b 
3El5H+b 
3E18H+b 
3ElBH+b 
3ElEH+b 
3E2lH+b 
3E24H+b 
3E27H+b 
3E2AH+b 



JMP BOOT 
JMP WBOOT 
JMP CONST 
JMP CONIN 
JMP 00NOOT 
JMP LIST 
JMP PUNCH 
JMP READER 
JMP HCME 
JMP SELDSK 
JMP SETTRK 
JMP SETSEC 
JMP SETEMA 
JMP READ 
JMP WRITE 



ARRIVE HERE FROM COLD START LOAD 

ARRIVE HERE FOR WARM START 

CHECK FOR CONSOLE CHAR READY 

READ CONSOLE CHARACTER IN 

WRITE CONSOLE CHARACTER OCT 

WRITE LISTING CHARACTER OUT 

WRITE CHARACTER TO PUNCH DEVICE 

READ READER EEVICE 

MOVE TO TRACK 00 ON SELECTED DISK 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ SELECTED SECTOR 

WRITE SEIECTED SECTOR 



Each jump address corresponds to a particular subroutine which performs the 
specific function, as outlined below. There are three major divisions in the 
jump table: (1) the system (re) initialization which results from calls on BOOT 
and WBOOT, (2) simple character I/O performed by calls on CDNST, CDNIN, 
CONOUT, LIST, PUNCH, and READER, and (3) diskette I/O performed by calls on 
HCME, SELDSK, SETTRK, SETSEC, SETEMA, READ, and WRITE. 

All simple character I/O operations are assumed to be performed in ASCII, 
upper and lower case, with high order (parity bit) set to zero. An 
end-of-f ile condition is given by an ASCII control-z (1AH) . Peripheral 
devices are seen by CP/M as "logical" devices, and are assigned to physical 
devices within the BIOS. In order to operate, the BDOS needs only the CONST, 
CONIN, and CONOOT subroutines (LIST, PUNCH, and READER are used by PIP, but 
not by the BDOS) . Thus, the initial version of CBIOS may have empty 
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subroutines for the remaining ASCII devices, 
device are 



The characteristics of each 



CONSOLE 



LIST 



PUNCH 



READER 



The principal interactive console which 
communicates with the operator, accessed 
through CONST, OONIN, and CONOOT. Typi- 
cally, the CONSOLE is a device such as a 
CRT or Teletype. 

The principal listing device, if it 
exists on your system, which is usually 
a hard-copy device, such as a printer 
or Teletype. 

The principal tape punching device, if it 
exists, which is normally a high-speed 
paper tape punch or Teletype. 

The principal tape reading device, such as 
a simple optical reader or Teletype. 



Note that a single peripheral can be assigned as the LIST, PUNCH, and READER 
device simultaneously. If no peripheral device is assigned as the LIST, 
PUNCH, or READER device, the CBIOS created by the user should give an 
appropriate error message so that the system does not "hang" if the device is 
accessed by PIP or some other user program. Alternately, the PUNCH and LIST 
routines can simply return, and the READER routine can return with a 1AH 
(ctl-Z) in reg A to indicate immediate end-of-file. 

For added flexibility, the user can optionally implement the "KBYTE" 
function which allows reassignment of physical and logical devices. The 
IOBYFE function creates a mapping of logical to physical devices which can be 
altered during CP/M processing (see the STAT command). The definition of the 
IQBYTE function corresponds to the Intel standard as follows: a single 
location in memory (currently location 0003H) is maintained, called KBYTE, 
which defines the logical to physical device mapping which is in effect at a 
particular time. The mapping is performed by splitting the KBYTE into four 
distinct fields of two bits each, called the CONSOLE, READER, PUNCH, and LIST 
fields, as shown below: 



most significant 



least significant 



KBYTE AT 0003H 



LIST 



PUNCH 



READER 



CONSOLE 



bits 6,7 bits 4,5 bits 2,3 bits 0,1 



The value in each field can be in the range 0-3, defining the assigned source 
or destination of each logical device. The values which can be assigned to 
each field are given below 
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OONSOIJB field (bits 0,1) 

- console is assigned to the console printer device (TTY:) 

1 - console is assigned to the CRT device (CRT:) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

3 - user-defined console device (UC1:) 

READER field (bits 2,3) 

- READER is the Teletype device (TTY:) 

1 - READER is the high-speed reader device (FTR:) 

2 - user-defined reader # 1 (UR1:) 

3 - user-defined reader # 2 (UR2:) 

PUNCH field (bits 4,5) 

- PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the high speed punch device (PTP:) 

2 - user-defined punch # 1 (UPl:) 

3 - user-defined punch # 2 (UP2:) 

LIST field (bits 6,7) 

- LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user-defined list device (UL1:) 

Note again that the implementation of the IOBYTE is optional, and affects only 
the organization of your CBIOS. No CP/M systems use the IOBYTE (although they 
tolerate the existence of the ICBYTE at location 0003H) , except for PIP which 
allows access to the physical devices, and STAT which allows logical-physical 
assignments to be made and/or displayed (for more information, see the "CP/M 
Features and Facilities Guide"). In any case, the IOBYTE implementation 
should be omitted until your basic CBIOS is fully implemented and tested; then 
add the IOBYTE to increase your facilities. 

Disk I/O is always performed through a sequence of calls on the various 
disk access subroutines. These set up the disk number to access, the track 
and sector on a particular disk, and the direct memory access (DMA) address 
involved in the I/O operation. After all these parameters have been set up, a 
call is made to the READ or WRITE function to perform the actual I/O 
operation. Note that there is often a single call to SELDSK to select a disk 
drive, followed by a number of read or write operations to the selected disk, 
before selecting another drive for subsequent operations. Similarly, there 
may be a single call to set the DMA address, followed by several calls which 
read or write from the selected DMA address, before the DMA address is 
changed. The track and sector subroutines are always called before the READ 
or VRITE operations are performed. Note that the READ and WRITE routines 
should perform several re-tries (10 is a good number) before reporting the 
error condition to the BDOS. If the error condition is returned to the BDOS, 
it will report the error to the user. The HOME subroutine may or may not 
actually perform the track 00 seek, depending upon your controller 
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characteristics; the important point is that track 00 has been selected for 
the next operation, and is often treated in exactly the same manner as SETTRK 
with a parameter of 00. 

The exact responsibilites of each entry point subroutine are given below: 



BOOT 



WBOOT 



CONST 



OONIN 



OONOOT 



The BOOT entry point gets control from the cold start loader 
and is responsible for basic system initialization, includ- 
ing sending a signon message (which can be omitted in the 
first version). If the IOBYTE function is implemented, it 
must be set at this point. The various system parameters 
which are set by the WBOOT entry point must be initialized, 
and control is transferred to the CCP at 2900H+b for further 
processing. Note that reg C must be set to zero to select 
drive A. 

The WBOOT entry point gets control when a warm start occurs. 
A warm start is performed whenever a user program branches to 
location 0000H, or when the CPU is reset from the front panel, 
The CP/M system must be loaded from the first two tracks of 
drive A up to, but not including, the BIOS (or (BIOS, if you 
have completed your patch) . System parameters must be ini- 
tialized as shown below: 



location 0,1,2 
location 3 
location 5,6,7 



Set to JMP WBOOT for warm starts 
(0000H: JMP 3E03H+D) . 
Set initial value of KBYTE, if 
implemented in your CBIOS. 
Set to JMP BDOS, which is the 
primary entry point to CP/M for 
transient programs 
(0005H: JMP 3106H+D) . 



(See Section 9 for complete details of page zero use.) 
Upon completion of the initialization, the WBOOT program 
must branch to the CCP at 2900H+b to (re) start the system. 
Upon entry to the CCP, register C is set to the drive to 
select after system initialization. 

Sample the status of the currently assigned console device; 
return 0FFH in register A if a character is ready to read 
and 00H in register A if no console characters are ready. 

Read the next console character into register A, and set the 
high-order (parity bit) . If no console character is ready, 
wait until a character is typed before returning. 

Send the character from register C to the console output de- 
vice. The character is in ASCII, with high-order (parity) bit 
set to zero. You may want to include a time-out on a line 
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feed or carriage return, if your console device requires some 
time interval at the end of the line (such as a TI Silent 700 
terminal) . You can r if you wish, filter out control char- 
acters which cause your console device to react in a strange 
way (a control-z causes the Lear Seigler terminal to clear 
the screen, for example). 

LIST Send the character from register C to the currently assigned 
listing device. The character is in ASCII with zero parity. 

PUNCH Send the character from register C to the currently assigned 
punch device. The character is in ASCII with zero parity. 

READER Read the next character from the currently assigned reader de- 
vice into register A with zero parity (high-order bit must be 
zero) , an end-of-f ile condition is reported by returning an 
ASCII control-z (1AH) . 

HCME Return the disk head of the currently selected disk (initially 
disk A) to the track 00 position. If your controller allows 
access to the track flag from the drive, step the head until 
the track flag is detected. If your controller does not 
support this feature, you can translate the HOME call into a 
call on SETTRK with a parameter of 0. 

SELDSK Select the disk drive given by register C for further opera- 
tions, where register C contains for drive A, 1 for drive B, 
2 for drive C, and 3 for drive D. (The standard CP/M 
distribution version supports a maximum of four drives) . If 
your system has less than 4 drives, you may wish to give an 
error message at the console, and terminate execution. It is 
advisable to postpone the actual disk select operation until 
an I/O function (seek, read or write) is actually performed, 
since disk selects often occur without ultimately performing 
any disk I/O, and many controllers will unload the head of the 
current disk before selecting the new drive. This would 
cause an excessive amount of noise and disk wear. 

SETTRK Register C contains the track number for subsequent disk 

accesses on the currently selected drive. You can choose to 
seek the selected track at this time , or delay the seek until 
the next read or write actually occurs. Register C can take 
on values in the range 0-76 corresponding to valid track 
numbers. 

SETSEC Register C contains the sector number (1 through 26) for sub- 
sequent disk accesses on the currently selected drive. You 
can choose to send this information to the controller at this 
point, or instead delay sector selection until a read or 
write operation occurs. 
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SETDMA 



READ 



Registers B and C (high-order 8 bits in B r low-order 8 bits 
in C) contain the DMA (Direct Memory Access) address for sub- 
sequent read or write operations. For example, if B = 00H 
and C » 80H when SETDMA is called, then all subsequent read 
operations read their data into 80H through 0FFH, and all 
subsequent write operations get their data from 80H through 
0FFH, until the next call to SETDMA occurs. The initial 
DMA address is assumed to be 80H. Note that the controller 
need not actually support direct memory access. If, for 
example, all data is received and sent through I/O ports, the 
CBIOS which you construct will use the 128-byte area starting 
at the selected DMA address for the memory buffer during the 
following read or write operations. 

Assuming the drive has been selected, the track has been set, 
the sector has been set, and the DMA address has been speci- 
fied, the READ subroutine attempts to read one sector based 
upon these parameters, and returns the following error codes 
in register A: 



no errors occurred 

1 non-recoverable error condition occurred 

Currently, CP/M responds only to a zero or non-zero value as 
the return cede. That is, if the value in register A is 
then CP/M assumes that the disk operation completed properly. 
If an error occurs, however, the CBIOS should attempt at 
least 10 re-tries to see if the error is recoverable. When an 
error is reported the BDOS will print the message "BDOS ERR 
ON xs BAD SECTOR." The operator then has the option of 
typing <cr> to ignore the error, or control-C to abort. 



WRITE 



Write the data from the currently selected DMA address to the 
currently selected drive, track, and sector. The data should 
be marked as "non deleted data" to maintain compatibility 
with other CP/M systems. The error codes given in the READ 
command are returned in register A, with error recovery at- 
tempts as described above. 
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7. A SAMPLE BIOS 

The program show* in Appendix D can serve as a basis for your first BIOS. 
The simplest functions are assumed in this BIOS, so that you can enter it 
through the front panel, if absolutely necessary. Note that the user must 
alter and insert code into the subroutines for CONST, CDNIN, CDNOUT, READ, 
WRITE, and WAITIO. Storage is reserved for user-supplied code in these 
regions. The scratch area reserved in page zero (see Section 9) for the BIOS 
is used in this program, so that it could be implemented in ROM, if desired. 

Once operational, this skeletal version can be enhanced to print the 
initial sign-on message and perform better error recovery. The subroutines 
for LIST, PUNCH, and READER can be filled-out, and the IOBYTE function can be 
implemented. 



8. A SAMPLE COLD START LOADER 

The program shown in Appendix E can serve as a basis for your cold start 
loader. The disk read function must be supplied by the user, and the program 
must be loaded somehow starting at location 0000. Note that space is reserved 
for your patch so that the total amount of storage required for the cold start 
loader is 128 bytes. Eventually, you will probably want to get this loader 
onto the first disk sector (track 0, sector 1) and cause your controller to 
load it into memory automatically upon system start-up. Alternatively, you 
may wish to place the cold start loader into ROM and place it above the CP/M 
system. In this case, it will be necessary to originate the program at a 
higher address and key-in a jump instruction at system start-up which branches 
to the loader. Subsequent warm starts will not require this key-in operation, 
since the entry point 'WBOOT' gets control, thus bringing the system in from 
disk automatically. Note also that the skeletal cold start loader has minimal 
error recovery, which may be enhanced on later versions. 
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9. RESERVED LOCATIONS IN PAGE ZERO 



Main memory page zero, locations 00H throuqh 0FFH, contains several 
segments of code and data which are used during CP/M processinq. The code and 
data areas are given below for reference purposes. 



Locations 
from to 
0000H - 0002H 



0003H - 0003H 

0004H - 0004H 
0005H - 0007H 



0008H - 0027H 
0030H - 0037H 
0038H - 003AH 



003BH 
0040H 

0050H 
005CH 



003FH 
004FH 

005BH 
007CH 



007DH - 007FH 



Gontents 

Contains a jump instruction to the warm start entry 
point at location 3E03H+b. This allows a simple 
programmed restart (JMP 0000H) or manual restart from 
the front panel. 

Contains the Intel standard IOBYTE, which is ootionally 
included in the user's CBIOS, as described in Section 6. 

Current default drive number (0=A r 1=B, 2=C r 3=D) . 

Contains a jump instruction to the BDOS, and serves two 
purposes: JMP 0005H provides the primary entry point to 
the BDOS, as described in the manual "CP/M Interface 
Guide," and LHLD 0006H brings the address field of the 
instruction to the HL register pair. This value is the 
lowest address in memory used by CP/M (assuminq the CCP 
is being over laved) . Note that the DDT program will 
change the address field to reflect the reduced memory 
size in debug mode. 

(interrupt locations 1 through 5 not used) 

(interrupt location 6, not currently used - reserved) 

Contains a jump instruction into the DDT program when 
running in debug mode for programmed breakpoints, but 
is not otherwise used by CP/M. 

(not currently used - reserved) 

16 byte area reserved for scratch by CBIOS, but is not 
used for any ourpose in the distribution version of CP/M 

(not currently used - reserved) 

Default File Control Block produced for a transient pro- 
gram by the Console Command Processor. 

(not currently used - reserved) 
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0080H - 00FEH Default 128-byte disk buffer (also filled with the com- 
mand line when a transient is loaded under the CCP) . 

Note that this information is setup for normal operation under the CP/M 
system > but can be overwritten by a transient program if the BDQS facilities 
are not required by the transient. If/ for example, a particular program 
performs only simple I/O and must begin execution at location 0, it can be 
first loaded into the TPA, using normal CP/M facilities, with a small memory 
move program which gets control when loaded (the memory move program must get 
control from location 0100H, which is the assumed beginning of all transient 
programs) . The move program can then proceed to move the entire memory image 
down to location 0, and pass control to the starting address of the memory 
load. Note that if the BIOS is overwritten, or if location (containing the 
warm start entry point) is overwritten, then the programmer must bring the 
CP/M system back into memory with a cold start sequence. 
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10. NOTES FOR USERS OF CP/M VERSION 1.3 

The only difference in memory layout between CP/M versions 1.3 and 1.4 is 
the location of the BDOS f which has been moved down one page (3100h+b instead 
of 3200h+b). Therefore, your present CBIOS must be changed to reflect this. 
Normally, the only change is found in the initialization of the jump 
instruction at location 5. This jump should now be JMP 3106H+b instead of JMP 
3206H+b. Note that the CCP is one page shorter, offsetting the longer BDOS, 
so that the system load address (2900H+D) remains the same. CP/M 1.4 also 
supports four drives, and thus your CBIOS must account for a drive select 
value in the range 0-3. No other changes to CP/M affect the CBIOS 
organization. 
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APPENDIX A: THE MD6 LOADER M3VE PROGRAM 



MD6 LOADER MDVE PROGRAM, PtACES GOLD START BOOT AT BOOTB 



3000 
0080 = 

0080 » 
D900 = 

0078 = 

0079 = 
007B = 



BOOEB 

BOOTL 

MBIAS 

BASE 

RTYPE 

RBYTE 



ORG 
ECU 
EQU 
EQU 
EQU 
EQU 
EQU 



3000H 

80H 

80H 

900H-$ 

078H 

BASE+1 

BASE+3 



WE ARE LOADED HERE ON CDLD START 

START OF GOLD BOOT PROGRAM 

LENGTH OF BOOT 

BIAS TO ADD DURING LOAD 

'BASE' USED BY DISK CONTROLLER 

RESULT TYPE 

RESULT TYPE 



00FF = 



BSW 



EOU 



0FFH ;BOOT SWITCH 



3000 DB79 
3002 DB7B 



CLEAR DISK STATUS 
IN RTYPE 
IN RBYTE 



3004 DBFF 
3006 E602 
3008 C20430 



COLDSTART: 
IN 
ANI 
JNZ 



BSW 

2H ; SWITCH ON? 

OOLDSTART 



300B 
300E 
3010 
3013 
3014 
3015 
3016 
3017 
3018 
301B 



211E30 

0680 

118000 

7E 

12 

23 

13 

05 

C21330 

C38000 



MOVE: 



LXI 

MVI 

LXI 

MOV 

STAX 

INX 

INX 

DCR 

JNZ 

JMP 



H,BOOTV ;VIRTUAL BASE 
B, BOOTL ;LENGTH OF BOOT 
D,BOOTB DESTINATION OF BOOT 
A,M 



D 

H 

D 

B 

MOVE 

BOOTB 



TRANSFERRED ONE BYTE 



;TO BOOT SYSTEM 



089E = 
301E 



BOOTV: ;BOOT LOADER PIACE HERE AT SYSTEM GENERATION 
LBIAS EQU $-80H+MBIAS ;OOLD START BOOT BEGINS AT 80H 
END 
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APPENDIX B: THE MDS GOLD START LOADER 



MDS CDLD START LCADER FOR CP/M 
VERSION 1.4 JANUARY, 1978 



0100 = 


BIAS 


EQU 


100H 


;BIAS FOR RELOCATION 


0000 = 


FALSE 


EOU 





' 


FFFF = 


TRUE 


EQU 


NOT FALSE 


0000 = 


TESTING 


EQU 


FALSE 


;IF TRUE r THEN GO TO MDN80 ON ERRORS 


0100 = 


BDOSB 


EQU 


BIAS 


;BASE OF DOS LOAD 


0906 = 


BDOS 


EQU 


806H+BIAS yENTRY TO DOS FOR CALLS 


1800 = 


BDOSE 


EQU 


1700H+BIAS ;END OF DOS LOAD 


1600 = 


BOOT 


EQU 


1500H+BIAS ;OOLD START ENTRY POINT 


1603 = 


RBOOT 


EQU 


BOOT+3 


;WARM START ENTRY POINT 


0080 


i 


ORG 


80H 


;LQADED DOWN FROM HARDWARE BOOT AT 3 


1700 « 


BDOSL 


EQU 


BDOSE-BDOSB 


0002 = 


NTRKS 


EQU 


2 


;NUMBER OF TRACKS TO READ 


002E = 


BDOSS 


EQU 


BDOSL/128 ;NUMBER OF SECTORS IN DOS 


0019 = 


BDOS0 


EOU 


25 


?NUMBER OF BDOS SECTORS ON TRACK 


0015 = 


BDOS1 


EQU 


BDOSS-BDOS0 ;NUMBER OF SECTORS ON TRACK 


F800 = 


MON80 


EQU 


0F800H 


;INTEL MONITOR BASE 


FF0F = 


RMON80 


EQU 


0FF0FH 


^RESTART LOCATION EOR NDN80 


0078 = 


BASE 


EQU 


078H 


;'BASE' USED BY CONTROLLER 


0079 = 


RTYHE 


EQU 


BASE+1 


; RESULT TYPE 


007B = 


RBYTE 


EQU 


BASE+3 


; RESULT BYTE 


007F = 


RESET 


EQU 


BASE+7 


? RESET CONTROLLER 


0078 = 


DSTAT 


EQU 


BASE 


yDISK STATUS PORT 


0079 = 


ILOW 


EQU 


BASE+1 


?LOW IOPB ADDRESS 


007A = 


IHIGH 


EQU 


BASE+2 


?HIGH IOPB ADDRESS 


0003 = 


RECAL 


EQU 


3H 


^RECALIBRATE SELECTED DRIVE 


0004 = 


READF 


EQU 


4H 


?DISK READ FUNCTION 


0100 = 


STACK 

• 
9 

RSTART: 


EQU 


100H 


?USE END OF BOOT FOR STACK 


0080 310001 




uci 


SP, STACK 


jIN CASE OF CALL TO MDN80 




• 


CLEAR THE OONTROl 


XER 


0083 D37F 


• 
# 


OUT 


RESET 


?LOGIC CLEARED 


0085 0602 


• 


MVT 


B, NTRKS 


^NUMBER OF TRACKS TO READ 


0087 21B700 




LXI 


H,IOPB0 





START: 



B-l 



READ FIRST/NEXT TRACK INTO BDOSB 



008A 7D 
008B D379 
008D 7C 
008E D37A 
0090 DB78 
0092 E604 
0094 CA9 000 



0097 DB79 
0099 E603 
0096 FE02 



WAIT0: 



009D D28000 



MDV 


A,L 


our 


ILOW 


VCN 


A,H 


our 


IHIGH 


IN 


D6TAT 


ANI 


4 


JZ 


WAIT0 


CHECK DISK STATUS 


IN 


RTYPE 


ANI 


11B 


CPI 


2 


IF 


TESTING 


CNC .. 


RMON80 ;GO TO MDNITOR : 


ENDIF 




IF 


NOT TESTING 


JNC 


RSTART ;RETRY THE LOAD 


ENDIF 





00A0 DB7B 

00A2 17 
00A3 DC0FFF 
00A6 IF 
00A7 E61E 



00A9 C28000 



IN RBYTE ;I/0 COMPLETE, CHECK STATUS 

IF NOT READY, THEN GO TO MDN80 

RAL 

CC RMON80 ;NOT READY BIT SET 

RAR ;RESTORE 

ANI 11110B ,-OVERRUN/ADER ERR/SEEK/CRC/XXXX 



TESTING 

RMON80 ;GO TO MONITOR 



IF 

CNZ 

ENDIF 

IF NOT TESTING 

JNZ RSTART ;RETRY THE LOAD 

ENDIF 



00AC 110700 
00AF 19 
00B0 05 
00B1 C28A00 



LXI D,IOPBL ;LENGTH OF IOPB 

DAD D ;ADERESSING NEXT ICPB 

DCR B ;COUNT DOWN TRACKS 

JNZ START 



00B4 C30016 



JMP TO BOOT TO PRINT INITIAL MESSAGE, M3D SET UP JMPS 
JMP BOOT 



00B7 80 
00B8 04 
00B9 19 



PARAMETER BLOCKS 
IOPB0: D6 80H ;IOCW, NO UPDATE 
DB READF ;READ FUNCTION 
DB BDOS0 ;# SECTOR TO READ ON TRACK 
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00BA 00 
00BB 02 
00BC 0001 
0007 = 

00BE 80 
00BF 04 
00C0 15 
00C1 01 
00C2 01 
00C3 800D 



IOPBL 



IQPB1: 



DB 





DB 


2 


DW 


BDOSB 


EQU 


$-IOPB0 


DB 


80H 


DB 


READF 


DB 


BDOS1 


DB 


1 


DB 


1 


DW 


BD0SB4B) 



;TRACK 

jSTART WITH SECTOR 2 ON TRACK 

;START AT BASE OF BDOS 



; SECTORS TO READ ON TRACK 1 
;TRACK 1 
; SECTOR 1 
BDOSB4BDQS0*128 ;BASE OF SECOND READ 



00C5 



END 
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APPENDIX C: THE MDS BASIC I/O SYSTEM (BIOS) 



000E = 



VERS 



FFFF 
0000 
FFFF 



2900 = 



TRUE 

FALSE 

SAMPLE 



BIAS 



BIAS 



MDS I/O DRIVERS EOR CP/M 
(FOUR DRIVE SINGLE DENSITY VERSION) 
VERSION 1.4 JANUARY, 1978 



EQU 



14 



; VERSION 1.4 



COPYRIGHT (C) 1978 
DIGITAL RESEARCH 
BOX 579, PACIFIC GROVE 
CALIFORNIA, 93950 



EQU 
EQU 
EQU 

IF 

EQU 

ENDIF 

IF 

EQU 

ENDIF 



0FFFFH ;VPdAM OF "TRUE" 
NOT TRUE ? "FALSE" 
TRUE ;TRUE IF SAMPLE BIOS 

SAMPLE 

2900H ;SAMPLE PROGRAM IN 16K SYSTEM 

NOT SAMPLE 

0000H ;GENERATE RELOCATABLE CP/M SYSTEM 



3E00 » 

3E00 
2900 » 
3106 = 
1500 » 
002A = 
0002 = 
0004 = 
0080 = 
000A = 



PATCH EQU 



1500H+BIAS 



CPMB 

BDOS 

CPML 

NSECTS 

OFFSET 

CDISK 

BUFF 

RETRY 



ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



PATCH 

000H+BIAS 

806H+BIAS 

$-CPMB ;LENGTH 

CPML/128 

2 

0004H 



;BASE OF CPM CONSOLE PROCESSOR 
;BASIC DOS (RESIDENT PORTION) 
(IN BYTES) OF CPM SYSTEM 
;NUMBER OF SECTORS TO LOAD 
;NUMBER OF DISK TRACKS USED BY CP/M 
;ADDRESS OF IAST LOGGED DISK ON WARM START 



0080H ?DEFAULT BUFFER ADDRESS 

10 ;MAX RETRIES ON DISK I/O BEFORE ERROR 



PERFORM FOLLOWING FUNCTIONS 
BOOT GOLD START 
WBOOT WARM START (SAVE I/O BYTE) 
(BOOT AND WBOOT ARE THE SAME EOR MDS) 



CONST 



GONIN 

OONOUT 

LIST 

PUNCH 

READER 

HOME 



CONSOLE STATUS 

REG-A = 00 IF NO CHARACTER READY 

REG-A = FF IF CHARACTER READY 

CONSOLE CHARACTER IN (RESULT IN REG-A) 

CONSOLE CHARACTER OUT (CHAR IN REG-C) 

LIST OUT (CHAR IN REG-C) 

PUNCH OUT (CHAR IN REG-C) 

PAPER TAPE READER IN (RESULT TO REG-A) 

MOVE TO TRACK 00 
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(THE FOLLOWING CALLS SET-UP THE 10 PARAMETER BLOCK FOR THE 
MD6, WHICH IS USED TO PERFORM SUBSEQUENT READS AND WRITES) 
SELDSK SELECT DISK GIVEN BY REG-C (0,1,2...) 
SETTRK SET TRACK ADDRESS (0 r ...76) FOR SUBSEQUENT READ/WRITE 
SETSEC SET SECTOR ADDRESS (1,...,26) FOR SUBSEQUENT READ/WRITE 
SETDMA SET SUBSEQUENT DMA ADDRESS (INITIALLY 80H) 

(READ AND WRITE ASSUME PREVIOUS CALLS TO SET UP THE 10 PARAMETERS) 
READ READ TRACK/SECTOR TO PRESET DMA ADDRESS 
WRITE WRITE TRACK/SECTOR FROM PRESET DMA ADDRESS 

JUMP VECTOR FOR INDIVIUAL ROUTINES 



3E00 C3443E 


JMP 


BOOT 


3E03 C3543E 


WBOOTE: JMP 


WBOOT 


3E06 C3F23E 


JMP 


CONST 


3E09 C3F53E 


JMP 


OONIN 


3E0C C3FB3E 


JMP 


GONOUT 


3E0F C3FE3E 


JMP 


LIST 


3E12 C3013F 


JMP 


PUNCH 


3E15 C3043F 


JMP 


READER 


3E18 C3073F 


JMP 


HOME 


3E1B C30C3F 


JMP 


SELDSK 


3E1E C32A3F 


JMP 


SETTRK 


3E21 C32F3F 


JMP 


SETSEC 


3E24 C3343F 


JMP 


SETDMA 


3E27 C33A3F 


JMP 


READ 


3E2A C3433F 


JMP 


WRITE 



END OF CONTROLLER - INDEPENDENT CODE, THE REMAINING SUBROUTINES 
ARE TAILORED TO THE PARTICULAR OPERATING ENVIRONMENT, AND MUST 
BE ALTERED FOR ANY SYSTEM WHICH DIFFERS FROM THE INTEL MDS. 

THE FOLLOWING CODE ASSUMES THE MDS MONITOR EXISTS AT 0F800H 
AND USES THE I/O SUBROUTINES WITHIN THE MONITOR 

WE ALSO ASSUME THE MDS SYSTEM HAS POUR DISK DRIVES 



0004 
00FD 
00FC 
00F3 
007E 



NDISKS 

REVRT 

INTC 

ICON 

INTE 



EQU 
EQU 
EQU 
EQU 
EQU 



4 ;NUMBER OF DRIVES AVAILABLE 

0FDH jINTERRUPT REVERT PORT 

0FCH INTERRUPT MASK PORT 

0F3H INTERRUPT CONTROL PORT 



0111$1110B 



;ENABLE RST 0(WARM BOOT) , RST 7 (MONITOR) 



MDS MONITOR EQUATES 



F800 
FF0F 
F803 
F806 
F809 



MON80 

RMON80 

CI 

RI 

CO 



EQU 
EQU 
EQU 
EQU 
EQU 



0F800H 
0FF0FH 
0F803H 
0F806H 
0F809H 



MDS MONITOR 

RESTART MON80 (BOOT ERROR) 

CONSOLE CHARACTER TO REG-A 

READER IN TO RBG-A 

CONSOLE CHAR FROM C TO CONSOLE OUT 
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F80C = 
F80F = 
F812 = 



PO EOU 0F80CH 
LO EQU 0F80FH 
CSTS EOU 0F812H 



PUNCH CHAR FROM C TO PUNCH DEVICE 
LIST FROM C TO LIST DEVICE 
CONSOLE STATUS 00/FF TO REGISTER A 



DISK PORTS AND COMMANDS 



0078 = 

0078 = 

0079 = 
007B = 

0079 = 
007A = 

0004 = 
0006 = 

0003 = 

0004 = 
000D = 
000A = 



3E2D 0D0A0A 
3E30 3136 



BASE EOU 

DSTAT EQU 

RTYPE EOU 

RBYTE EQU 



ILCW 
IHIGH 

• 

READF 

WP.ITF 

RECAL 

IORDY 

CR 

LF 

SIGNON: 



3E32 4B2043502F 
3E3E 312E34 
3E41 0D0A00 



BOOT: 



EOU 
EOU 

EOU 
EOU 
EOU 
EOU 
EOU 
EQU 



78H 
BASE 
BASE+1 
BASE+3 

BASE+1 
BASE+2 

4H 

6H 

3H 

4H 

0DH 

0AH 



BASE OF DISK COMMAND 10 PORTS 
DISK STATUS (INPUT) 
RESULT TYPE (INPUT) 
RESULT BYTE (INPUT) 

IOPB LOW ADDRESS (OUTPUT) 
IOPB HIGH ADDRESS (OUTPUT) 

READ FUNCTION 
WRITE FUNCTION 
RECALIBRATE DRIVE 
I/O FINISHED MASK 
CARRIAGE RETURN 
LINE FEED 



;SIGNON MESSAGE: XXK CP/M VERS Y.Y 
DB CR,LF,LF 

SAMPLE 

'16' ;16K EXAMPLE BIOS 



IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

DB 

IB 

DB 



NOT SAMPLE 
'00' jMEMORY SIZE FILLED BY RELOCATOR 

'K CP/M VERS ' 

VERS/1 0+'0 ','.', VERS MOD 10+ '0' 
CR,LF,0 



3E44 310001 


DCI 


3E47 212D3E 


LXI 


3E4A CD4C3F 


CALL 


3E4D AF 


XRA 


3E4E 320400 


STA 


3E51 C3A03E 


JMP 



; PRINT' SIGNON MESSAGE AND GO TO CCP 
(NOTE: MD6 BOOT INITIALIZED IOBYTE AT 0003H) 
SP,BUFF+80H 
H,SIGNON 

PRMSG ; PRINT MESSAGE 
A ;CLEAR ACCUMULATOR 
CDISK ;SET INITIALLY TO DISK A 
GOCPM ;G0 TO CP/M 



3E54 318000 

3E57 0E0A 
3E59 C5 



WBOOT:; LOADER ON TRACK 0, SECTOR 1, WHICH WILL BE SKIPPED FOR WARM 

READ CP/M FROM DISK - ASSUMING THERE IS A 128 BYTE COLD START 
START. 

DCI SP r BUFF ;USING DMA - THUS 80 THRU FF AVAILABLE FOR STACK 

MVE CRETRY ;MAX RETRIES 
PUSH B 
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WBOOT0: ;ENTER HERE ON ERROR RETRIES 



3E5A 


010029 


3E5D CD343F 


3E60 


0E00 


3E62 


CD0C3F 


3E65 


0E00 


3E67 


CD2A3F 


3E6A 


0E02 


3E6C 


CD2F3F 


3E6F 


CI 


3E70 


062A 


3E72 


C5 


3E73 


CD3A3F 


3E76 


C2DA3E 


3E79 


2AE53F 


3E7G 


118000 


3E7F 


19 


3E80 


44 


3E81 


4D 


3E82 


CD343F 


3E85 


3AE43F 


3E88 


FE1A 


3E8A DA963E 


3E8D 


3AE33F 


3E90 


3C 


3E91 


4F 


3E92 


CD2A3F 


3E95 AF 


3E96 


3C 


3E97 


4F 


3E98 


CD2F3F 


3E9B 


CI 


3E9C 


05 


3E9D 


C2723E 



RDSEC: 



RD1: 



GOCPM: 



3EA0 


F3 


3EA1 


3E12 


3EA3 


D3FD 


3EA5 AF 


3EA6 


D3FC 


3EA8 


3E7E 


3EAA 


D3FC 


3EAC AF 



IXI 


B,CPMB 


CALL 


SE7TDMA 


MVI 


C f 


CALL 


SELDSK 


MVI 


C,0 


CALL 


SETTRK 


MVI 


C,2 


CALL 


SETSEC 



;SET DMA ADDRESS TO START OF DISK SYSTEM 
;BOOT FROM DRIVE 



;START WITH TRACK 

; START READING SECTOR 2 



READ SECTORS, COUNT NSECTS TO ZERO 
POP B ;10-ERROR OOUNT 
MVI B, NSECTS 
;READ NEXT SECTOR 



PUSH 

CALL 

JNZ 

LHLD 

LXI 

DAD 

MDV 

M3V 

CALL 

LDA 

CPI 

JC 



B 

READ 

BOOTERR 

IOD 

D,128 

D 

B r H 

C r L 

SETDMA 

IOS 

26 

RD1 



;SAVE SECTOR CDUNT 

;RETRY IF ERRORS OCCUR 

^INCREMENT DMA ADDRESS 

; SECTOR SIZE 

INCREMENTED DMA ADDRESS IN HL 

;READY FOR CALL TO SET DMA 

; SECTOR NUMBER JUST READ 
;READ IAST SECTOR? 



MUST BE SECTOR 26, ZERO AND GO TO NEXT TRACK 



LDA 

INR 

M3V 

CALL 

XRA 

INR 

M3V 

CALL 

POP 

DCR 

ONZ 



IOT 

A 

C,A 

SEITRK 

A 

A 

C,A 

SETSEC 

B 

B 

RDSEC 



;GET TRACK TO REGISTER A 

;READY FOR CALL 

;CLEAR SECTOR NUMBER 
;TO NEXT SECTOR 
;READY FOR CALL 

;RECALL SECTOR OOUNT 
;DONE? 



DONE WITH THE LOAD, RESET DEFAULT BUFFER ADDRESS 
; (ENTER HERE FROM OOLD START BOOT) 
ENABLE RST0 AND RST7 
DI 

INITIALIZE COMMAND 



^CLEARED 

;RST0 AND RST7 BITS ON 



MVI 


A,12H 


OUT 


REVRT 


XRA 


A 


OUT 


INTC 


MVI 


A,INTE 


our 


INTC 


XRA 


A 
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3EAD D3F3 




OUT • 


ICON ; INTERRUPT CONTROL 




• 


SET DEFAULT BUFFER ADDRESS TO 80H 


3EAF 018000 




LXI 


B,BUFF 


3EB2 CD343F 




CALL 


SETDMA 




7 
7 


RESET 


MONITOR ENTRY POINTS 


3EB5 3EC3 




MVI 


A, JMP 


3EB7 320000 




STA 





3EBA 21033E 




LXI 


H,WBOOTE 


3EBD 220100 




SHLD 


1 ;JMP WBOOT AT LOCATION 00 


3EC0 320500 




STA 


5 


3EC3 210631 




LXI 


H,BDOS 


3EC6 220600 




SHLD 


6 ;JMP BDQS AT LOCATION 5 


3EC9 323800 




STA 


7*8 ;JMP TO MON80 (MAY HAVE BEEN CHANGED BY DDT) 


3ECC 2100F8 




LXI 


H f MON80 


3ECF 223900 




SHLD 


7*8+1 




• 


LEAVE 


IOBYTE SET 




• 


PREVIOUSLY SELECTED DISK WAS B, SEND PARAMETER TO CPM 


3ED2 3A0400 




LDA 


CDISK ;LAST LOGGED DISK NUMBER 


3ED5 4F 




MOV 


C,A ;SEND TO CCP TO LOG IT IN 


3ED6 FB 




EI 




3ED7 C30029 




JMP 


CPMB 




7 

• 


ERROR CONDITION OCCURRED, PRINT MESSAGE AND RETRY 




BOOTERF 


>• 




3EDA CI 




POP 


B ;RECALL COUNTS 


3EDB 0D 




DCR 


C 


3EDC CAE33E 




JZ 


BOOTER0 




• 
9 


TRY AGAIN 


3EDF C5 




PUSH 


B 


3EE0 C35A3E 




JMP 


VffiOOT0 



3EE3 21EC3E 
3EE6 CD4C3F 
3EE9 C30FFF 



BOOTER0! 



OTHERWISE TOO MANY RETRIES 

LXI H,BOOIMSG 

CALL PRMSG 

JMP RMON80 ;MDS HARDWARE MONITOR 



BOOOMSG; 



3EEC 3F424F4F54 



DB 



'?BOOT',0 



3EF2 C312F8 



CONST: ; CONSOLE STATUS TO REG-A 
; (EXACTLY THE SAME AS MDS CALL) 
JMP CSTS 



GONIN: ;GONSOLE CHARACTER TO REG-A 
3EF5 CD03F8 CALL CI 

3EF8 E67F ANI 7FH ;REMOVE PARITY BIT 
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3EFA C9 
3EFB C309F8 

3EFE C30FF8 

3F01 C30CF8 

3F04 C306F8 



3F07 0E00 
3F09 C32A3F 



3F0C 79 
3F0D FE04 
3F0F D40FFF 

3F12 E602 
3F14 32DF3F 
3F17 79 
3F18 E601 
3F1A B7 
3F1B CA203F 
3F1E 3E30 

3F20 4F 
3F21 21E13F 
3F24 7E 
3F25 E6CF 
3F27 Bl 
3F28 77 
3F29 C9 



RET 



GONOOT: ;OONSOLE CHARACTER FROM C TO CONSOLE OOT 
JMP GO 



LIST: ;LIST DEVICE OUT 

(EXACTLY THE SAME AS MDS CALL) 
JMP LO 

PUNCH: ;PUNCH DEVICE OUT 

(EXACTLY THE SAME AS MDS CALL) 
JMP PO 

READER: jREADER CHARACTER IN TO REG-A 
(EXACTLY THE SAME AS MDS CALL) 
JMP RI 



HOME: ;MOVE TO HOME POSITION 
TREAT AS TRACK 00 SEEK 
MVI C,0 
JMP SETTRK 

SELDSK: ; SELECT DISK GIVEN BY REGISTER C 

CP/M HAS CHECKED FOR DISK SELECT - 3, BUT WE MAY HAVE 
; A SMALLER MDS SYSTEM, SO CHECK AGAIN AND GIVE ERROR 
; BY CALLING MON80 

MDV A,C 

CPI NDISKS ?TOO IARGE? 

CNC RMON80 jGIVES #ADDR MESSAGE AT CONSOLE 



ANI 
STA 
MDV 
ANI 
ORA 
JZ 
MVI 
SETDRIVE: 

MDV 
IXI 
MDV 
ANI 
ORA 
MOV 
RET 



10B 

DBANK 

A f C 

IB 

A 

SETDRIVE 

A,00110000B 



;00 00 FOR DRIVE 0,1 AND 10 10 FOR DRIVE 2,3 

;TO SELECT DRIVE BANK 

;00, 01, 10, 11 

;MDS HAS 0,1 AT 78, 2,3 AT 88 

;RESULT 00? 



ySELECTS DRIVE 1 IN BANK 



;SAVE THE FUNCTION 
;IO FUNCTION 



C,A 

H,IOF 

A,M 

11001111B ;MASK OOT DISK NUMBER 

C ;MASK IN NEW DISK NUMBER 

M,A ;SAVE IT IN IOPB 



SETTRK: ;SET TRACK ADDRESS GIVEN BY C 
3F2A 21E33F LXI H,IOT 

3F2D 71 MOV M,C 



C-6 



3F2E C9 



RET 



SETSEC: ;SET SECTOR NUMBER GIVEN BY C 

3F2F 79 MDV A,C ;SECTOR NUMBER TO ACCUM 

3F30 32E43F STA IOS ;STORE SECTOR NUMBER TO IOPB 

3F33 C9 RET 

• 

SETDMA: ;SET DMA ADDRESS GIVEN BY REGS B,C 

3F34 69 MDV L,C 

3F35 60 MDV H,B 

3F36 22E53F SHLD IOD 

3F39 C9 RET 

READ: ; READ NEXT DISK RECORD (ASSUMING DISK/TRK/SEC/DMA SET) 

3F3A 0E04 MVI C,READF ;SET TO READ FUNCTION 

3F3C CD593F CALL SETFUNC 

3F3F CD693F CALL WAITIO ;PERFORM. READ FUNCTION 

3F42 C9 RET ;MAY HAVE ERROR SET IN REG-A 



3F43 0E06 
3F45 CD593F 
3F48 CD693F 
3F4B C9 



3F4C 7E 
3F4D B7 
3F4E C8 

3F4F E5 
3F50 4F 
3F51 CDFB3E 
3F54 El 
3F55 23 
3F56 C34C3F 



WRITE: ;DISK WRITE FUNCTION 
MVI C,WRITF 

CALL SETFUNC ?SET TO WRITE FUNCTION 
CALL WAITIO 
RET ;MAY HAVE ERROR SET 



UTILITY SUBROUTINES 
ERMSG: ;PRINT MESSAGE AT H r L TO 

MDV A,M 

ORA A ;ZERO? 

RZ 
: MORE TO PRINT 



PUSH 

MDV 

CALL 

POP 

INX 

OMP 



H 

C r A 

GONOUT 

H 

H 

PRMSG 



SETFUNC: 



3F59 21E13F 
3F5C 7E 
3F5D E6F8 
3F5F Bl 
3F60 77 



3F61 E620 



SET FUNCTION FOR NEXT I/O (COMMAND IN REG-C) 

DCI H, IQF ;IO FUNCTION ADDRESS 

MDV A r M ;GET IT TO ACCUMULATOR FOR MASKING 

ANI 11111000B ;REMOVE PREVIOUS COMMAND 

ORA C ;SET TO NEW COMMAND 

MDV M,A ;REPIACED IN IOPB 

THE MDS-800 CONTROLLER REQUIRES DISK BANK BIT IN SECTOR BYTE 

MASK THE BIT FROM THE CURRENT I/O FUNCTION 

ANI 00100000B ;MASK THE DISK SELECT BIT 
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3F63 21E43F 
3F66 B6 
3F67 77 
3F68 C9 



3F69 0E0A 



3F6B CDB83F 
3F6E CDC53F 



3F71 
3F74 
3F75 
3F77 
3F79 
3F7C 
3F7E 
3F7F 
3F81 



3ADF3F 

B7 

3EE0 

063F 

C2843F 

D379 

78 

D37A 

C3893F 



3F84 D389 
3F86 78 
3F87 D38A 

3F89 CDD23F 
3F8C E604 
3F8E CA893F 



3F91 CDB83F 



3F94 FE02 
3F96 CAAB3F 



3F99 B7 
3F9A C2B13F 



3F9D CDC53F 
3FA0 17 
3FA1 DAAB3F 
3FA4 IF 
3FA5 E6FE 
3FA7 C2B13F 



WAITIO: 



REWAIT: 



ORA 
MOV 
RET 



MVI 



H,IOS 

M 

M,A 



yADDRESS THE SECTOR SELECT BYTE 
;SELECT PROPER DISK BANK 
;SET DISK SELECT BIT ON/OFF 



CRETRY ;MAX RETRIES BEFORE PERM ERROR 



WAIT0: 



START THE I/O FUNCTION AND WAIT FOR COMPLETION 



CALL 
CALL 

LDA 
ORA 
MVI 
MVI 
JNZ 
OUT 
MOV 
OUT 
JMP 



INTYPE ;IN RTYPE 

INBYTE ;CLEARS THE CONTROLLER 

DBANK ;SET BANK FLAGS 

A ;ZERO IF DRIVE 0,1 AND NZ IF 2,3 

A r IOPB AND 0FFH jLCW ADDRESS FOR IOPB 

B,IOPB SHR 8 ;HIGH ADDRESS FOR IOPB 



IODR1 

ILOW 

A,B 

IHIGH 

WAIT0 



;DRIVE BANK 1? 

;LOW ADDRESS TO CONTROLLER 

;HIGH ADDRESS 

;TO miT FOR COMPLETE 



IODR1: ;DRIVE BANK 1 



OUT 
MOV 
OUT 

CALL 

ANI 

JZ 



ILOW+10H 

A,B 

IHIGH+10H 

INSTAT 

IORDY 

WAIT0 



;88 FOR DRIVE BANK 10 



;WAIT FOR COMPLETION 
;READY? 



CHECK 10 COMPLETION OK 

CALL INTYPE ;MUST BE 10 COMPLETE (00) UNLINKED 

00 UNLINKED I/O COMPLETE, 01 LINKED I/O COMPLETE (NOT USED) 

10 DISK STATUS CHANGED 11 (NOT USED) 

CPI 10B ;READY STATUS CHANGE? 

JZ WREADY 



MUST BE 00 

ORA A 

JNZ WERPOR 



IN THE ACCUMULATOR 

;SOME OTHER CONDITION, RETRY 



CHECK I/O ERROR BITS 



CALL 

RAL 

JC 

RAR 

ANI 

JNZ 



INBYTE 

WREADY 

11111110B 
WERROR 



;UNIT NOT READY 
;ANY OTHER ERRORS? 



(DELETED DATA OK) 



C-8 



3FAA C9 



READ OR WRITE IS OK, ACCUMULATOR CONTAINS ZERO 
RET 



3FAB CDC53F 
3FAE C3B13F 



WREADY: ;NOT READY, TREAT AS ERROR FOR NOW 

CALL INBYTE ; CLEAR RESULT BYTE 

JMP TRYODUNT 

• 

WERROR: ;RETORN HARDWARE MALFUNCTION (CRC, TRACK, SEEK, ETC.) 
THE MDS CONTROLLER HAS RETURNED A BIT IN EACH POSITION 
OF THE ACCUMULATOR, CORRESPONDING TO THE CONDITIONS: 



DELETED DATA (ACCEPTED AS OK ABOVE) 

CRC ERROR 

SEEK ERROR 

ADDRESS ERROR (HARDWARE MALFUNCTION) 

DATA OVESAJNDER FLOW (HARDWARE MALFUNCTION) 

WRITE PROTECT (TREATED AS NOT READY) 

WRITE ERROR (HARDWARE MALFUNCTION) 

NOT READY 



(ACCUMULATOR BITS ARE NUMBERED 7 6 5 4 3 2 10) 

IT MAY BE USEFUL TO FILTER OUT THE VARIOUS CONDITIONS, 
BUT WE WILL GET A PERMANENT ERROR MESSAGE IF IT IS NOT 
RECOVERABLE. IN ANY CASE, THE NOT READY CONDITION IS 
TREATED AS A SEPARATE CONDITION FOR LATER IMPROVEMENT 

TRYCOUNT: 

; REGISTER C CONTAINS RETRY COUNT, DECREMENT 'TIL ZERO 



3FB1 0D 




DCR 


C 


3FB2 C26B3F 




JNZ 


REWAIT ?FOR ANOTHER TRY 




• 


CANNOT 


RECOVER FROM ERROR 


3FB5 3E01 




MVI 


A,l ;ERROR CODE 


3FB7 C9 




RET 






r 

• 


INTYPE, 


INBYTE, INSTAT READ DRIVE BANK 00 OR 10 


3FB8 3ADF3F 


INTYPE: 


LDA 


DBANK 


3FBB B7 




ORA 


A 


3FBC C2C23F 




JNZ 


INTYP1 ;SKIP TO BANK 10 


3FBF DB79 




IN 


RTYPE 


3FC1 C9 




RET 




3FC2 DB89 


INTYP1: 


IN 


RTYPE+10H ;78 FOR 0,1 88 FOR 2,3 


3FC4 C9 




RET 




3FC5 3ADF3F 


INBYTE: 


LDA 


DBANK 


3FC8 B7 




ORA 


A 


3FC9 C2CF3F 




JNZ 


INBYT1 


3FCC DB7B 




IN 


RBYTE 


3FCE C9 




RET 




3FCF DB8B 


INBYT1: 


IN 


RBYTE+10H 


3FD1 C9 




RET 
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3FD2 3ADF3F 


INSTAT: 


LEA 


DBANK 


3FD5 B7 




ORA 


A 


3FD6 C2DC3F 




JNZ 


INSTA1 


3FD9 DB78 




IN 


DSTAT 


3FDB C9 




RET 




3FDC DB88 


INSTA1: 


IN 


D3TAT+10H 


3FDE C9 




RET 





3FDF 00 



DATA AREAS (MUST BE IN RAM) 

DBANK: DB ;DISK BANK 00 IF DRIVE 0,1 

10 IF DRIVE 2,3 

IOPB: ;IO PARAMETER BLOCK 

;NORMAL I/O OPERATION 

;IO FUNCTION, INITIAL READ 

;NUMBER OF SECTORS TO READ 

;TRACK NUMBER 

; SECTOR NUMBER 

;IO ADDRESS 



3FE0 80 




DB 


80H 


3FE1 04 


IOF: 


DB 


READF 


3FE2 01 


ION: 


DB 


1 


3FE3 02 


IOT: 


DB 


OFFSET 


3FE4 01 


IOS: 


DB 


1 


3FE5 8000 


IOD: 


DW 


BUFF 



3FE7 



END 
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APPENDIX D: A SKELETAL CBIOS 



0010 = 
3E00 =■ 



0040 = 

0040 = 

0041 - 

0042 « 
0044 = 



SKELETAL CBIOS FOR FIRST LEVEL OF CP/M ALTERATION 

NOTE : MSIZE DETERMINES WHERE THIS CBIOS IS LOCATED 
MSIZE EQU 16 ;CP/M VERSION MEMORY SIZE IN KILOBYTES 
PATCH EQU MSIZE*1 024-2*2 56 jSTART OF THE CBIOS PATCH 



WE WILL USE THE AREA RESERVED STARTING AT LOCATION 
40H IN PAGE FOR HOLDING THE VALUES OF: 
TRACK = LAST SELECTED TRACK 
SECTOR = IAST SELECTED SECTOR 
DMAAD = LAST SELECTED DMA ADDRESS 
DISKNO = IAST SELECTED DISK NUMBER 
(NOTE THAT ALL ARE BYTE VALUES EXCEPT FOR DMAAD) 



SCRAT EQU 

TRACK EQU 

SECTOR EQU 

DMAAD EQU 

DISKNO EOU 



40H ;BASE OF SCRATCH AREA (FROM 40H TO 4FH) 

SCRAT ;CURRENTLY SELECTED TRACK 

SCRAT+1 ;CURRENTLY SELECTED SECTOR 
SCRAT+2 ; CURRENT DMA ADDRESS 

SCRAT+4 ;CURRENT DISK NUMBER 



3E00 
0000 = 
2900 ■ 
3106 - 
1500 = 
002A » 



3E00 C32D3E 



ORG 
CBASE EQU 
CPMB EQU 
BDOS EQU 
CPML EQU 
NSECTS EQU 



3E03 
3E06 
3E09 
3E0C 
3E0F 
3E12 
3E15 
3E18 
3E1B 
3E1E 
3E21 
3E24 
3E27 
3E2A 



C3303E 
C3993E 
C3AC3E 
C3BF3E 
C3D13E 
C3D33E 
C3D53E 
C3DA3E 
C3E03E 
C3F53E 
C30A3F 
C31F3F 
C3353F 
C3483F 



WBOOTE; 



PATCH ;ORGIN OF THIS PROGRAM 

(MSIZE-16)*1024 jBIAS FOR SYSTEMS IARGER THAN 16K 
CBASE+2900H ;BASE OF CP/M (= BASE OF CCP) 
CBASE+3106H ;BASE OF RESIDENT PORTION OF CP/M 
$-CPMB ;LENOTH OF THE CP/M SYSTEM IN BYTES 
CPML/128 ;NUMBER OF SECTORS TO LOAD ON WARM START 



JUMP 
JMP 

JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



VECTOR FOR 
BOOT 

WBOOT 

CONST 

CONIN 

OONOUT 

LIST 

PUNCH 

READER 

HCME 

SELDSK 

SETTRK 

SETSEC 

SETDMA 

READ 

WRITE 



INDIVIDUAL SUBROUTINES 
;OOLD START 



;WARM START 

;OONSOLE STATUS 

;OONSOLE CHARACTER IN 

; CONSOLE CHARACTER OUT 

;LIST CHARACTER OUT 

; PUNCH CHARACTER OUT 

; READER CHARACTER OUT 

;MOVE HEAD TO HCME POSITION 

; SELECT DISK 

; SET TRACK NUMBER 

;SET SECTOR NUMBER 

;SET DMA ADDRESS 

;READ DISK 

;WRITE DISK 
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; INDIVIDUAL SUBROUTINES TO PERFORM EACH FUNCTION 
BOOT: ;SIMPDBST CASE IS TO JUST FERFORM PARAMETER INITIALIZATION 

22D C3793E JMP GOCPM ;INITIALIZE AND GO TO CP/M 

WBOOT: ;SIMPLEST CASE IS TO READ THE DISK UNTIL ALL SECTORS LOADED 

230 318000 LXI SP,80H ;USE SPACE BELOW BUFFER FOR STACK 

233 0E00 MVI C,0 ;SELECT DISK 

235 CDE03E CALL SELDSK 

338 CDDA3E CALL HOME ;GO TO TRACK 00 

E3B 062A ' MVI B,NSECTS ;B COUNTS THE NUMBER OF SECTORS TO LOAD 

E3D 0E00 MVI C,0 ?C HAS THE CURRENT TRACK NUMBER 

B3F 1602 MVI D,2 ?D HAS THE NEXT SECTOR TO READ 

; NOTE THAT WE BEGIN BY READING TRACK 0, SECTOR 2 SINCE SECTOR 1 

; CONTAINS THE GOLD START LOADER, WHICH IS SKIPPED IN A WARM START 

E41 210029 LXI H,CPMB ;BASE OF CP/M (INITIAL LOAD POINT) 

LQAD1: ;LQAD ONE MORE SECTOR 

E44 C5 PUSH B ;SAVE SECTOR COUNT, CURRENT TRACK 

E45 D5 PUSH D ;SAVE NEXT SECTOR TO READ 

E46 E5 PUSH H ;SAVE DMA ADERESS 

E47 4A MOV C,D ;GET SECTOR ADERESS TO REGISTER C 

E48 CD0A3F CALL SETSEC ;SET SECTOR ADERESS FROM REGISTER C 

E4B CI POP B jRECALL DMA ADDRESS TO B,C 

E4C C5 PUSH B ?REPIACE ON STACK FOR LATER RECALL 

E4D CD1F3F CALL SETDMA ;SET DMA ADERESS FROM B,C 

,' DRIVE SET TO r TRACK SET, SECTOR SET, DMA ADERESS SET 

£50 CD353F CALL READ 

E53 FE00 CPI 00H ;ANY ERRORS? 

E55 C2303E JNZ WBOOT ;RETRY THE ENTIRE BOOT IF AN ERROR OCCURS 

• NO ERROR, MOVE TO NEXT SECTOR 

IE58 El POP H ;RECALL DMA ADERESS 

IE59 118000 LXI D,128 ?DMA=DMA+128 

;E5C 19 DAD D ;NEW DMA ADERESS IS IN H,L 

IE5D Dl POP D ;RECALL SECTOR ADERESS 

IE5E CI POP B jRECALL NUMBER OF SECTORS REMAINING, AND CURRENT TRK 

IE5F 05 DCR B jSECTORS=SECTORS-l 

JE60 CA793E JZ GOCPM ;TRANSFER TO CP/M IF ALL HAVE BEEN LOADED 

• MORE SECTORS REMAIN TO LOAD, CHECK FOR TRACK CHANCE 
SE63 14 INR D 

JE64 7A MOV A,D ?SECTOR=27?, IF SO, CHANGE TRACKS 

JE65 FE1B CPI 27 

JE67 DA443E JC LQAD1 ; CARRY GENERATED IF SECTOR<27 



SE6A 1601 
JE6C 0C 



END OF CURRENT TRACK, GO TO NEXT TRACK 

MVI D,l yBEGIN WITH FIRST SECTOR OF NEXT TRACK 

INR C ;TRACK=tfRACK+l 
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3E6D C5 


PUSH 


3E6E D5 


PUSH 


3E6F E5 


PUSH 


3E70 CDF53E 


CALL 


3E73 El 


POP 


3E74 Dl 


POP 


3E75 CI 


POP 


3E76 C3443E 


JMP 



SAVE REGISTER STATE, AND CHANGE TRACKS 
B 
D 
H 

SETTRK ;TRACK ADDRESS SET FROM REGISTER C 
H 
D 
B 
LQAD1 ;FOR ANOTHER SECTOR 



3E79 3EC3 
3E7B 320000 
3E7E 21033E 
3E81 220100 



GOCPM: 



END OF LOAD OPERATION, SET PARAMETERS AND GO TO CP/M 

MVI A,0C3H ;C3 IS A JMP INSTRUCTION 

STA ;FOR JMP TO WBOOT 

LXI H,WBOQTE ;W60QT ENTRY POINT 

SHLD 1 ;SET ADDRESS FIELD FOR JMP AT 



3E84 320500 
3E87 210631 
3E8A 220600 



STA 5 ? FOR JMP TO BDOS 

LXI H,BDOS ;BDOS ENTRY POINT 

SHLD 6 ;ADDRESS FIELD OF JUMP AT 5 TO BDOS 



3E8D 018000 
3E90 CD1F3F 



LXI B,80H ;DEFAULT DMA ADDRESS IS 80H 
CALL SETDMA 



3E93 FB 



3E94 0E00 
3E96 C30029 



3E99 

3EA9 3E00 
3EAB C9 



CONST: 



EI ;ENABLE THE INTERRUPT SYSTEM 

FUTURE VERSIONS OF CCP WILL SELECT THE DISK GIVEN BY REGISTER 

C UPON ENTRY, HENCE ZERO IT IN THIS VERSION OF THE BIOS FOR 

FUTURE COMPATIBILITY. 

MVI C,0 ;SELECT DISK ZERO AFTER INITIALIZATION 

JMP CPMB ;GO TO CP/M FOR FURTHER PROCESSING 



SIMPLE I/O HANDLERS (MUST BE FILLED IN BY USER) 

IN EACH CASE, THE ENTRY POINT IS PROVIDED, WITH SPACE RESERVED 

TO INSERT YOUR OWN CODE 

;O0NSOLE STATUS, RETURN 0FEH IF CHARACTER READY, 00H IF NOT 
DS 10H ;SPACE FOR STATUS SUBROUTINE 
MVI A,00H 
RET 



CONIN: ;OONSOLE CHARACTER INTO REGISTER A 

3EAC DS 10H ;SPACE FOR INPUT ROUTINE 

3EBC E67F ANI 7FH ;STRIP PARITY BIT 

3EBE C9 RET 



3EBF 79 
3EC0 
3ED0 C9 



CONOOT: ;OONSOLE CHARACTER OUTPUT FROM REGISTER C 
MOV A,C ;GET TO AOCUMUIATOR 

DS 10H ;SPACE FOR OUTPUT ROUTINE 

RET 
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3ED1 79 
3ED2 C9 



3ED3 79 
3ED4 C9 



LIST: ;LIST CHARACTER FROM REGISTER C 

MOV A,C ^CHARACTER TO REGISTER 
RET ;NULL SUBROUTINE 

PUNCH: ? PUNCH CHARACTER FROM REGISTER C 

MOV A,C ;CHARACTER TO REGISTER 
RET ?NULL SUBROUTINE 



3ED5 3E1A 
3ED7 E67F 
3ED9 C9 



3EDA 0E00 
3EDC CDF53E 
3EDF C9 



READER: ;READ CHARACTER INTO REGISTER A FROM READER DEVICE 

MVI A,1AH ;EOTER END OF FILE FOR NOW (REPLACE IATER) 

ANI 7FH ; REMEMBER TO STRIP PARITY BIT 

RET 



I/O DRIVERS FOR THE DISK FOLLOW 

FOR NOW, WE WILL SIMPLY STORE THE PARAMETERS AWAY FOR USE 

IN THE READ AND WRITE SUBROUTINES 



HCME: jMOVE TO THE TRACK 00 POSITION OF CURRENT DRIVE 

; TRANSLATE THIS CALL INTO A SETTRK CALL WITH PARAMETER 00 

MVI C,0 ;SELECT TRACK 

CALL SETTRK 

RET ;WE WILL MOVE TO 00 ON FIRST READ/WRITE 



SELDSK: ;SELECT DISK GIVEN BY REGISTER C 

3EE0 79 MOV A,C 

3EE1 324400 STA DISKNO 

3EE4 DS 10H ;SPACE FOR DISK SELECTION ROUTINE 

3EF4 C9 RET 

SETTRK: ;SET TRACK GIVEN BY REGISTER C 

3EF5 79 MOV A,C 

3EF6 324000 STA TRACK 

3EF9 DS 10H ;SPACE FOR TRACK SELECT 

3F09 C9 RET 

SETSEC: ;SET SECTOR GIVEN BY REGISTER C 

3F0A 79 MOV A,C 

3F0B 324100 STA SECTOR 

3F0E DS 10H ; SPACE FOR SECTOR SELECT 

3F1E C9 RET 



3F1F 69 
3F20 60 
3F21 224200 
3F24 
3F34 C9 



SE7TDMA: ;SET DMA ADDRESS GIVEN BY REGISTERS B AND C 



MOV 

MOV 

SHLD 

DS 

RET 



L,C ;LOW ORDER ADDRESS 

H f B ;HIGH ORDER ADDRESS 

DMAAD ;SAVE THE ADDRESS 

10H ySPACE FOR SETTING THE DMA ADDRESS 
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3F35 

3F45 C3583F 



3F48 



00A7 = 

3F58 3E01 
3F5A C9 
3F5B 



READ: ;EEREORM READ OPERATION (USUALLY THIS IS SIMIIAR TO WRITE 
; SO WE WILL ALLOW SPACE TO SET UP READ COMMAND, THEN USE 

COMMDN CODE IN WRITE) 

D6 10H ;SET UP READ COMMAND 

JMP WAITIO , -TO KIRFOm THE ACTUAL I/O 
• 
WRITE: ; PERFORM A WRITE OPERATION 

DS 10H ;SET UP WRITE COMMAND 

WAITIO: ;EOTER HERE FROM READ AND WRITE TO EERFORM THE ACTUAL I/O 

OPERATION. RETURN A 00H IN REGISTER A IF THE (DERATION COMPLETES 
PROPERLY, AND 01H IF AN ERROR OCCURS DURING THE READ OR WRITE 

IN THIS CASE, WE HAVE SAVED THE DISK NUMBER IN 'DISKNO' (0,1) 

THE TRACK NUMBER IN 'TRACK' (0-76) 
THE SECTOR NUMBER IN 'SECTOR' (1-26) 
THE DMA ADDRESS IN 'DMAAD' (0-65535) 

ALL REMAINING SPACE FROM $ THROUGH MS IZE*1 024-1 IS AVAILABLE: 
LEFT EQU (MSIZE*1 024-1)-$ ;SPACE REMAINING IN CBIOS 



MVI 
RET 
END 



A,l ;ERROR CONDITION 

•REPLACED WHEN ETLUBD-IN 
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APPENDIX E: A SKELETAL GETSYS/PUTSYS PROGRAM 



0100 
0010 = 



0000 = 



MSIZE 



BIAS 



0100 318028 
0103 218028 
0106 0600 

0108 0E01 

010A CD0003 
010D 118000 

0110 19 

0111 0C 

0112 79 

0113 FE1B 
0115 DA0A01 



GSTART: 



RDTRK: 



RDSEC: 



COMBINED GETSYS AND POTSYS PROGRAMS FROM SECTION 4 

START THE PROGRAMS AT THE BASE OF THE TRANSIENT PROGRAM AREA 

OH3 100H 

EQU 16 ;SIZE OF MEMORY IN KILOBYTES 

BIAS IS THE AMOUNT TO ADD TO ADDRESSES FOR SYSTEMS IARGER THAN 16K 

(REFERRED TO AS 'B' THROUGHOUT THE TEXT) 

EQU (MSIZE-16)*1024 

GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 2880H+BIAS 



REGISTER 
A 
B 
C 

D,E 
H r L 
SP 



USE 
(SCRATCH REGISTER) 
TRACK COUNT (0...76) 
SECTOR ODUNT (1...26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET TO STACK ADDRESS 



LXI SP,2880H+BIAS 

LXI H,2880H+BIAS 

MVI B,0 

MVI C,l 

CALL READSEC 

LXI D,128 

DAD D 

INR C 

MOV A,C 

CPI 27 

JC RDSEC 



; START OF THE GETSYS PROGRAM 

?SET STACK POINTER TO SCRATCH AREA 

;SET BASE LOAD ADDRESS 

? START WITH TRACK 00 

;READ FIRST (NEXT) TRACK 

;READ STARTING WITH SECTOR 1 

;READ NEXT SECTOR 

; CHANGE LOAD ADDRESS TO NEXT 1/2 PAGE 

;HL=HLfl28 TO NEXT ADDRESS 

;SECTOR=SECTOR+l 

; CHECK FOR END OF TRACK 

;CARRY GENERATED IF C<27 



0118 04 

0119 78 
011A FE02 
011C DA0801 



ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 



INR 
MOV 
CPI 
JC 



B 

A r B 
2 
RDTRK 



TRACK=TRACK+1 

CHECK FOR IAST TRACK 

TRACK=2? 

CARRY CENERATED IF TRACK < 



011F FB 
0120 76 



0200 



ARRIVE HERE AT END OF LOAD, HALT FOR NOW 

EI 

HLT 

PUTSYS PROGRAM - PLACE MEMORY STARTING AT 2880H+BIAS BACK TO TRACKS 
AND 1. START THIS PROGRAM ON THE NEXT PAGE 
ORG ($+100H) AND 0FF00H 



E-l 







RB3ISTER 






A 








B 








C 








D f E 








H r L 








SP 




] 


START: 




; START CF THE 


0200 318028 




LXI 


SP,2880H+BIAS 


0203 218028 




LXI 


H, 2880H+BIAS 


0206 0600 

V 


JRTRK: 


MVI 


B,0 


0208 0E01 


7RSEC: 


MVI 


C,l 


020A CD8003 




CALL 


WRITESEC 


020D 118000 




LXI 


D r 128 


0210 19 




DAD 


D 


0211 0C 




INR 


C 


0212 79 




MOV 


A,C 


0213 FE1B 




CPI 


27 


0215 DA0A02 




JC 


WRSEC 


• 




ARRIVE 


HERE AT END OF 


0218 04 




INR 


B 


0219 78 




MOV 


A r B 


021A FE02 




CPI 


2 


021C DA0802 




JC 


WRTRK 


i 

m 
1 




ARRIVE 


HERE AT END OF 


021F FB 




EI 




0220 76 




HIT 





USE 
(SCRATCH REGISTER) 
TRACK COUNT (0,1) 
SECTOR COUNT (1...26) 
(SCRATCH REGISTER PAIR) 
DUMP ADDRESS 
SET TO STACK ADDRESS 

POTSYS PROGRAM 

;SET STACK POINTER TO SCRATCH AREA 

fSET BASE DUMP ADDRESS 

f START WITH TRACK 

rWRltE FIRST (NEXT) TRACK 

(START WRITING AT SECTOR 1 

;WRITE FIRST (NEXT) SECTOR 

(PERFORM THE WRITE 

rMOVE DUMP ADDRESS TO NEXT 1/2 PAGE 

;HIfHL+128 

(SECTOR=SECTOR+l 

iCHECK FOR END OF TRACK 

tSECrOR=27? 

(CARRY GENERATED IF SECTOR < 27 



;TRACK=TRACK+1 

;TEST FOR IAST TRACK 

;TRACK=2? 

;CARRY CENERATED IF TRACK < 2 



0300 



0300 C5 

0301 E5 

0302 El 

0303 CI 

0304 C9 



USER-SUPPLIED SUBROUTINES FOR SECTOR READ AND SECTOR WRITE 

MOVE TO NEXT PAGE FOR READSEC AND WRITESEC 
ORG ($*100H) AND 0FF00H 

READSEC: ;READ THE NEXT SECTOR 

TRACK TO READ IS IN REGISTER B 
SECTOR TO READ IS IN REGISTER C 
BRANCH TO IABEL GSTART IF ERROR OCCURS 
READ 128 BYTES CF DATA TO ADDRESS GIVEN BY H,L 
PIEH B 
PUSH H 

** PIACE READ OPERATION HERE ** 
POP H 
POP B 
RET 
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0380 



0380 C5 

0381 E5 

0382 El 

0383 CI 

0384 C9 



; MOVE TO NEXT 1/2 PAGE FOR WRITESEC SUBROUTINE 

ORG ($ AND 0FF00H) + 80H 
WRITESEC: ;WRITE THE NEXT SECTOR 

TRACK TO WRITE IS IN REGISTER B 

SECTOR TO WRITE IS IN REGISTER C 

BRANCH TO IABEL ESTART IF ERROR OCCURS 

WRITE 128 BYTES OF DATA FROM ADDRESS GIVEN BY H,L 

PUSH B 

PUSH H 

** PIACE WRITE OPERATION HERE ** 

POP H 

POP B 

RET 



0385 



END OF GETSYS/POTSYS PROGRAM 
END 



E-3 



APPENDIX F: A SKELETAL GOLD START LOADER 



0000 




ORG 


0010 = 


MSIZE 


EQU 


0000 = 


BIAS 


EQU 


2900 = 


LQADP 


EQU 


3E00 = 


BIOS 


EQU 


3E00 = 


BOOT 


EQU 


1700 = 


SIZE 


EQU 


002E =■ 


SECTS 


EQU 


0000 010200 


• 

COLD: 


beg: 

LXI 


0003 162E 




MVI 


0005 210029 




LXI 



THIS IS A SAMPLE GOLD START LOADER WHICH, WHEN MODIFIED, RESIDES 
ON TRACK 00, SECTOR 01 (THE FIRST SECTOR ON THE DISKETTE) . WE 
ASSUME THAT THE CONTROLLER HAS LOADED THIS SECTOR INTO MEMORY 
UPON SYSTEM STARTUP (THIS FROGRAM CAN BE KEYED-IN, OR EXIST IN 
A PAGE OF READ-ONLY MEMORY BEYOND THE ADDRESS SPACE OF THE CP/M 
VERSION YOU ARE PUNNING) . THE GOLD START LOADER BRINGS THE CP/M 
SYSTEM INTO MEMORY AT 'LQADP' (NOMINALLY 290 0H) + 'BIAS' WHERE 
THE BIAS VALUE ACCOUNTS FOR MEMORY SYSTEMS LARGER THAN 16K, AND 
CP/M VERSIONS WHICH HANDLE THE IARGER MEMORY SPACE. IN A 16K 
SYSTEM, THE VALUE OF BIAS IS 0000H. AFTER LOADING THE CP/M SYS- 
TEM, THE GOLD START LOADER BRANCHES TO THE 'BOOT' ENTRY POINT OF 
THE BIOS, WHICH BEGINS AT 'BIOS' + 'BIAS'. THE GOLD START LOADER 
IS NOT USED AGAIN UNTIL THE SYSTEM IS POWERED UP AGAIN, AS LONG 
AS THE BIOS IS NOT OVERWRITTEN. 

THE ORGIN IS 0, ASSUMING THE CONTROLLER LOADS THE GOLD START 
PROGRAM AT THE BASE OF MEMORY. THIS ORIGIN MUST BE IN HIGH 
MEMORY (BEYOND THE END OF THE BIOS) IF THE GOLD START LOADER 
IS IMPLEMENTED IN READ-ONLY-MEMORY. 
0000H ;BASE OF MEMORY 
16 ;MEMORY SIZE IN KILOBYTES 
(MSIZE-16)*1024 ;BIAS TO ADD TO LOAD ADDRESSES 
2900H ;LQAD POINT FOR CP/M SYSTEM 
3E00H ;BASIC I/O SYSTEM (2 PAGES = 512 BYTES) 
BIOS ;COLD START ENTRY POINT IN BIOS 
BIOS+512-LQADP ;SIZE OF THE CP/M SYSTEM TO LOAD 
SIZE/128 ?NUMBER OF SECTORS TO LOAD 

BEGIN THE LOAD OPERATION 

B,2 ;CLEAR B TO 0, SET C TO SECTOR 2 

D,SECTS ;NUMBER OF SECTORS TO LOAD IS IN D 
H,LOADP+BIAS ;LC&D POINT IN H,L 



0008 C36B00 



LSECT: ;LQAD NEXT SECTOR 

INSERT INLINE OODE AT THIS POINT TO READ ONE 128 BYTE SECTOR 
FRCM TRACK GIVEN BY REGISTER B, 
SECTOR GIVEN BY REGISTER C, 
INTO ADDRESS GIVEN BY REGISTER PAIR H,L 
BRANCH TO LOCATION 'GOLD' IF A READ ERROR OCCURS 

**************************************************** 

USER SUPPLIED READ OPERATION GOES HERE 
************************************************************ 

(SPACE IS RESERVED FOR YDUR PATCH) 

JMP PASTPATCH ; REMOVE THIS JUMP WHEN PATCHED 
DS 60H 



F-l 



006B 15 
006C CA003E 



006F 318000 
0072 39 



PASTPATCH: 

GO TO NEXT SECTOR IF LOAD IS INCOMPLETE 

DCR D ;SECTS=SECTS-1 

JZ BOOT+BIAS ;GO TO BOOT LOADER AT 3E00H+BIAS 

MORE SECTORS TO LOAD 

USE SP FOR SCRATCH REGISTER TO HOLD LOAD ADDRESS INCREMENT 

LXI SP,128 

DAD SP ;HL=HL+128 TO NEXT LC&D ADDRESS 



0073 0C 

0074 79 

0075 FE1B 
0077 DA0800 



007A 0E01 
007C 04 
007D C30800 



INR 


C 


MOV 


A,C 


CPI 


27 


JC 


LSECT 


END OF 


TRACK, 


MVI 


C,l 


INR 


B 


JMP 


LSECT 



•SECTOR=SECTOR+l 

•MOVE SECTOR COUNT TO A FOR ODMPARE 

;END OF CURRENT TRACK? 

•CARRY GENERATED IF SECTOR < 27 



SECTOR=l 

TRACK=TRACK+1 

FOR ANOTHER SECTOR 



0080 



END 



F-2 



